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Você nunca terá em suas mãos'outra'coleção 
de eletrônica tão simples e completa. 


DIVIRTA-SE COM A 


ELETRONICA 


ADQUIRA JÁ ESTE 
INCRIVEL SUPORTE 
PRÁTICO PARA O 
SEU APRENDIZADO 
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A REVISTA-CURSO QUE ENSI- 
NA À ELETRÔNICA,EM LIÇÕES 
SIMPLES E OBJETIVAS,COMO 
VOCÊ PEDIU! EM TODAS AS 
BANCAS! RESERVE,DESDE JA, 
O SEU PROXIMO EXEMPLAR! 
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possível, a necessária retificação ou 
correção. 

















”“ 


16 


20 


DA prsisrectgi URRRDA: 


27 


29 





= 


Foi realmente espantosa a aceitação que SÓ PROGRAMAS obteve no seu 
primeiro número, inúmeras cartas foram enviadas, algumas elogiando outras 
dando sugestões e perguntas, outras fazendo críticas construtivas alertando nossa 
equipe para os problemas ainda existentes na área, mas que nem sempre podem 
ser detectados e resolvidos com facilidade, mas com certeza não deixaremos de 
Tesolvê-los, mesmo que estes sejam de uma minoria, ou até de uma só pessoa, 
mas não se esquecendo que esta publicação trata-se de SÓ PROGRAMAS, por 
outro lado nossa seção de cartas resolverá outros problemas ou curiosidades que 
vierem a surgir. 

Lembremse de que, para obtermos sucesso suficientemente para agradar à 
todos os leitores dependemos única e exclusivamente de VOCÊ LEITOR, e é por 
esse motivo, que em nome de toda equipe, transmito o nosso MUITO OBRIGA- 
DO. 


Sidney Paretti 
Produtor e Diretor Técnico 
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“Recebi o primeiro número da revista “SO PRO- 
GRAMAS” que me respondeu preenchendo um 
vazio existente no mercado, até o surgimento desta 
revista não se conseguia uma publicação que apre- 
sentasse programas simples e tantos em uma só 
publicação das revistas existentes, quando muito 
encontrasse uma que traga três ou quatro progra- 
mas, é digna de elogios também a apresentação da 
revista com uma forma leve e gostosa de ler e com 
a belíssima apresentação dos programas e uma for- 
ma simples e clara de boa impressão e com tipos e 
disposição de letras que facilitam sua leitura duran- 
te a digitação evitando às tão famigerados erros 
que causam aquela decepção de após digitar SOM li- 
nhas de programa (e quanto mais pior) vermos nos- 
so programa não funcionar e termos que perder 
mais algum tempo corrigindo os erros. 

Gostaria apenas de apontar a falta de programas 
para a linha Apple (no primeiro número) embora 
concorde que a publicação de programas para a 
linha Sinclair e TRS-80 (TKs, CP-200, CP-300, 
etc.) atendam a quase totalidade do mercado de 
micros pessoais no Brasil. Sinto-me desconsolado 
ao não encontrar publicações com programas para 
o meu TK-2000 (Apple) e nem sempre conseguir 
modificar os comandos dos outros programas para 
adapté-los ao meu micro. Gostaria de pedir, se pos- 
sível, que vocês publicassem alguns problemas para 
o TK-2000 ou para APPLE já que aí a adaptação se 
torna mais fácil; ou que vocês publicassem algumas 
dicas para modificação para outros micros, 

Creio que já temos“alguns possuidores do TK- 
2000 espalhados por aí e que estejam encontrando 
as mesmas dificuldades. 

Em síntese, “SO PROGRAMAS” é uma publi- 
cação digna de todos os elogios pará a qual trans- 
mito minhas felicitações e desejo de pleno sucesso. 

PS. Abraços para o Alexandre." 

Ricardo Caponero 

Rua Oliveira Peixoto, 148, casa 17 

01530 — São Paulo — SP 
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Prezado Ricardo 

Antes de mais nada agradeço os elogios e votos 
de felicidades, e também procurando manter os 
pontos favoráveis por você citado, e quanto aos 
programas para o TK-2000, que por ser um compu- 
tador recente no mercado, e possuir linguagem de 
certo modo diferente dos outros computadores, 
estamos estudando e programando, para que no 
futuro  publiquemos programas especialmente 
desenvolvidos para o TK-2000, quanto aos progra 
mas para à linha APPLE, nos próximos números 
iremos publicar programas nessa linha de compu- 
tadores. Nos próximos números lançaremos um 
mesmo programa para os computadores das linhas: 
SINCLAIR, TR$-80 e APPLE, e num futuro tam- 
bém incluiremos o TK-2000, pois ele possui algu- 
mas diferenças mesmo com os da linha APPLE, 
quanto as dicas e problemas indico a revisto 
“SOFT+HARD” desta mesma editora. 

PS. Abraços para o Alexandre também. 

(Cá entre nós “O letrinha”.) 


“Adquiri há pouco tempo um TK85 é gostei 
muito da publicação “SO PROGRAMAS” que me 
forneceu tantos programas (instrutivos). Eles são 
simples, práticos, de bons resultados, fácil de en- 
tender, enfim, uma revista que auxilia muito aque- 
les que, como eu, se iniciam na área de informática. 

Enviando meus cumprimentos à equipe de pro- 
gramadores, gostaria que dedicassem algum espaço 
comentando e dando dicas sobre os video-games 
[se possível, orientando suas programações) pois 
possuo um video-game ATARI. 

Em tempo, adorei o “QUALQUER COISA”, 
que provocou realmente bastante riso, e também 
do “BARREIRA”. Aprendi muito com seus pro- 
gramas, muito mais que no manual.” 

Tetsuo Yokihama 

Av. 4, n92— Rio Claro 

São Paulo — SP 


Prezado Tetsuo, antes de mais nada muito obri- 
gado pelos elogios que deixou toda equipe alegre 
por ter satisfeito seus problemas e também por 
divert-lo, quanto às dicas à video-game sugerimos 
a revista “SOFT+HARD” desta mesma editora. 
E para você que está aprendendo, nesta edição 
estamos lançando uma seçã com programas expli- 
cados linha por linha, justamente para auxiliar 
ainda mais aos iniciantes cono você. Continue 
conosco, e estamos à disposição sempre que lhe 
surgir algum problema ou dúvida. 
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Carissio Redator, 

Acabei de ler a última linha da revista “SO PRO- 
GRAMAS”, GENIAL!!! Todos os usuários de mi- 
crocomputadores devem estar felicíssimos com 
essa publicação. /As revistas com programas que 
conheço, não oferecem a diversificação de “SO 
PROGRAMAS”. 

Achei falta, no entanto, de programas para o 
APPLE, apesar de este não ser o meu caso, mas 
possuo um amigo que o tem. Espero que supram 
essa deficiência que, do meu ver, é aúnica. 

Querendo acrescentar do louvável trabalho de 
vocês, peço que publiquem programas com suas 
tinhas explicadas, pois isso me ajudaria a desen 
volver o meu aprendizado. Gostaria se possível 
que me explicassem a linha 6 do programa “NHA- 
KUS”, à única coisa que sei é que é um código de 
máquina, mas gostaria de saber qual a sua função. 

Sem mais, espero que sigam em frente, cada 
vez melhor.” 

Gilberto de Souza Sampaio 

Av. Caétes, 158 — Perdizes 

São Paulo — SP 


Caro Gilberto, alegra-me estar contente com & 
revista, quanto a programas para & linha APPLE, 
como já havia dito antes, estamos trabalhando no 
caso, é tenho certeza que a supriremos nos próxi 
mos números, sobre o programa com suas linhas 
explicadas, para sua felicidade a partir desta edição 
já lançamos a seção APRENDA NA PRÁTICA, 
que justamente explica linha por linha de um pro- 
grama, que gradativamente acrescentaremos novos 
incrementos, para realmente ampliar o aprendizado 
dos leitores em desenvolvimento. A linha 6 POKE 
16418,0, apesar de neste númeto estar explicada 
na seção APRENDA NA PRÁTICA, irei repetir 
aqui também. Quando você liga o computador este 
endereço (16418) estará carregado com 2, esse é o 
endereço das linhas inferiores na tela, nas quais 
digitamos o programa, ao se carregar este endereço 
com () iremos desta forma liberar as duas últimas 
linhas para serem usadas no programa, assim tere- 
mos agora um total de 24 linhas na tela. 

Muito obrigado mais uma vez, e se tiver mais 
dúvidas escreva-nos que as esclareceremos. 
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“Não sou nenhum viciado em cartas, mas ado- 
rei jogar com meu micro o jogo VINTE E UM, 
realmente esta é uma publicação genial que pre- 
encheu o que faltava no mercado, principalmente 
por encontrar a revista no jornaleiro da esquina de 
casa, o que evita vários empecilhos. Gostaria de 
assinar a revista, por isso peço informações sobre 
como fazer. Gostaria também que fossem feitos 
os outros programas para o meu tipo de compu- 
tador, pois fiquei curioso em saber como eram os 
outros programas, principalmente o “QUALQUER 
COISA”. 

Meus parabéns pela excelente revista, continuem 
assim.” 

José de Araújo Lima 

Rua Siqueira Bueno, 117 — Pari 

São Paulo — SP 


É isso aí, José, não seja nenhum viciado em car- 
tas (mas com seu micro pode né). Sobre as assina- 
turas ainda não concluímos as instalações de nosso 
departamento de assinaturas, mas não se preocupe 
tão logo estejamos aptos a atendêlo e também a 
outros leitores que nos têm enviado cartas, comuni- 
caremos, Quanto às traduções de programas, já 
estamos elaborando um esquema sobre'esse aspec- 
to. Muito obrigado e continue com a gente. 


“Prezados amigos, 

Gostaria de parabenizá-los por esta publicação 
que realmente faltava, principalmente sobre o as- 
pecto de serem vendidas nas bancas de jornais, pois 
antes desta publicação, a única coisa que havia no 
gênero eram livros que possuem uma certa quanti- 
dade de programas, mas de custo alto e raros, pois 
só se encontram em algumas livrarias do Centro de 
São Paulo. Realmente fico contente com tal publi- 
cação, pois significa um avanço na área de infor- 
mática no País, por outro lado notei a falta de pro- 
gramas para a linha APPLE, o qual possuo um. 
Acredito que nos próximos números serão lança- 
dos programas para essa linha, pelo menos é o que 
espero, por outro lado também reconheço que é 
um computador que poucas pessoas possuem pelo 
seu custo ser alto. Gostaria além de que publicassem 
programas para tal linha criassem uma seção de 
programas dos leitores criando assim um tipo de 
intercâmbio de programas, O que ajudaria a suprir 
essa dificuldade de acesso a programas de compu- 
tadores de alto custo, é lógico, contando com a 
minha colaboração dentro do que sei com progra- 
mas desenvolvidos por mim, e também com a co- 
laboração de outros leitores. 
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Mais uma vez gostaria de parabenizé-los e feli 
tá-los para que tenham sucesso e prosperidade.” 

Henrique Bergue dos Santos 

Rua Gálvea Peixoto, 173 — Santo Amaro 

São Paulo — SP 





Caro amigo Henrique, muito obrigado por nos 
dedicar um passo ao avanço da informática no 
Brasil. Como já frisamos antes, nos próximos nú- 
meros publicaremos programas paraa linha APPLE, 
quanto à idéia de intercâmbio de programas é óti- 
ma, às nossas portas estão abertas, ou melhor, nos- 
sas páginas estão abertas para tal idéia, mas tudo 
depende dos amigos leitores, de qualquer forma 
esperamos sua colaboração com seus programas, 
acreditamos que outros leitores também irão cola- 
borar, os quais publicaremos com todo carinho. 
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SUPER FONTE 
PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEMAS DE ALIMENTAÇÃO DO 
SEU MICRO OU VIDEO GAME DE QUALQUER MARCA. GS 36000,00 
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Neste jogo seu objetivo é acer- 
tar 12 alvos móveis no topo da 
tela, mas com tempo limitado, 
pois a cada tiro que der irá cres. 
cer uma barreira da esquerda pa- 
ra a direita, a qual você não po- 
derá acertar, caso contrário per- 
derá, da mesma forma perderá, se 
a barreira atingir o canto direito 
da tela. Os alvos devem ser alveja- 
dos no local exato, caso contrá- 
rio ele poderá se apagar. Cada vez 
que acertar um alvo aparecerá 
um cifrão na direção em que ele 
foi pego, que piscará no momen- 
to do acerto. Você pode acertar 
alvos no mesmo local em que já 
tinha sido pego um outro alvo. 

Seus controles são: 

“5” (ESQUERDA) 

“8” (DIREITA) 

“O” (TIRO) 


Para “rodar” este programa é 
necessário, antes reservar um 
espaço no topo da memória di- 
gitando o programa a seguir: 


10 LET E = PEEK 16388+256* 
PEEK 16389 

20 LET E = E-100 

30 POKE 16388,E-256*INT (E/ 
256) 

40 POKE 16389, INT (E/256) 

50 NEW 





Após rodar o programa acima 
digite o programa principal que 
vem a seguir. 





32100 400 (072 07 10MO) 00 100 (09:07 090) 00/00 00:60 
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10 POKE 30000,42 
11 POKE 30001,12 
12 POKE 30002,64 
13 POKE 30003,1 
14 POKE 30004,1 
15 POKE 30005,0 
16 POKE 30006,9 
17 POKE 30007,229 
18 POKE 30008,6 
19 POKE 30009,31 
20 POKE 30010,126 
21 POKE 30011,35 
22 POKE 30012,86 
23 POKE 30013,119 
24 POKE 30014,122 
25 POKE 30015,16 
26 POKE 30016,250 
27 POKE 30017,193 
28 POKE 30018,2 
29 POKE 30019,35 
30 POKE 30020,35 
31 POKE 30021,32 
32 POKE 30022,239 
33 POKE 30023,201 
100 LET AS=" ELES E 
110 PRINTAS 

120 PRINT'(32 gráfico shifta)” 

130 LET X=21 

140 LET Y=13 

159 LET A=21 

160 LET PO=O 

170 LET W=0 

200 RAND USR 30000 

210 LET A-20 

215 PRINTATX VS H" 

220 LET Y=Y+(INKEY$="8")- (INKEYS="5") 

230 IF Y <OTHEN LET v=0 

240 IFY >29THEN LET Y=29 

250 IF INKEY$="0" THEN GOSUB 450 

490 GOTO 200 

450 LET W=W+1 

460 IF W=30 THEN GOTO 850 

500 RAND USR 30000 

501 LET A=A-4 

510 IFA <Q THEN PRINTAT AW;CHRS 128 

515 IFA <O THEN RETURN 

520 PRINTATA,Y+H;USSAT ANA; 

530 PRINTAT A-4,V+1; 

550 IF PEEK (PEEK 16398+ 256"PEEK 16399)=137 THEN GOTO 700 

560 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 900 

699 GOTO 500 

700 LET PO=POM 

720 PRINTAT A-1,V+1;"$” (inverso) 
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721 PRINTAT AI, Y+H;S” 

722 PRINT AT 20,2/ACERTOS :“;P 

723 IF PO=12 THEN GOTO 809 

725 PRINT AT AW;CHR$ 128 

726 PRINT AT 1,0;"(32 gráfico shift A)” 

727 PRINT AT 1,0;“(32 gráfico shift W)” 

730 RETURN 

800 PRINT AT 11,4;/VOCE MATOU NA MOSCA” 
810 PRINTAT 1,0;“(32 gráfico shift A)” 

820 PRINT AT 1,0;“(32 gráfico shift W)” 

839 GOTO B1G 

850 PRINT AT 4,W;CHR$ 128 

851 PRINT AT 11,5//A BARREIRA SE FECHOU” 
860 STOP 

900 PRINT AT 11,4;/VOCE BATEU NA BARREIRA” 
910 FOR F=0TO 25 

920 NEXT F 

930 PRINT AT 12,8;ºTENTE NOVAMENTE” 
940 FOR F=0TO 25 

950 NEXT F 

955 CLS 

960 RUN 
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NÃO ESTAOINCLUIDAS NOS PREÇOS AS DESPESAS DE PORTE EEMBALAGEM 
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Neste programa você na pri- 
meira etapa se encontrará no la- 
birinto das surpresas, no qual 
existem portas e muros. Nas por- 
tas é que se encontram as surpre- 
sas, que podem ser: 

1. Correr num F. 1. 

2. Esquiar na neve. 

3. Lutar contra os E. T. 

4. Ganhar bônus. 

5. Passar para outro labirinto 
mais repleto de portas e mu- 
ros. 

Caso você bater num muro 
perderá bônus. Ao entrar numa 
porta a qua! o levará às corridas 
de F. 1, você deverá escolher um 
carro de 1 a 6 que será seu carro 
na corrida, e torça para que ele 
não quebre. Se por um acaso es- 
ta porta o levar para esquiar na 


neve, a única coisa que deve fa- 
zer é desviar das árvores (que são 
simbolizadas por espaços inver- 
sos) por um certo tempo. Se essa 
mesma porta o levar para lutar 
contra os E. T., deverá evitar 
que uma nave que vem descendo 
na tela atinja o solo, para isso vo- 
cê possui um canhão móvel que 
lança projéteis quando assim o 
quiser. Caso entre numa porta 
que lhe dê bônus, simplesmente 
esse bônus será acrescentado ao 
seu bônus geral sem alterar qual- 
quer coisa, e por último, entrar 
numa porta que o leve a outro la- 
birinto, este se encontrará mais 
repleto de portas e muros, tam- 
bém sem alterar qualquer outra 
coisa. 

No labirinto você se movimen- 








JOCA COOL 





Ç 


tará sozinho da esquerda para a 
direita, e quando atingir o lado 
direito, voltará ao lado esquerdo. 
Seus únicos controles são o “6"' 
(para baixo) e o “7” (para cima). 

Já numa corrida de F. 1 ape- 
nas terá que escolher um carro. 

Para esquiar na neve você pos- 


“g" (direita). 

Para lutar contra os E. T. seus 
controles são: “5 (esquerda), 
“8” (direita) e “Q" (tiro). 

Seu objetivo maior é fazer 
2509 pontos, caso ultrapasse a 
-200 perderá. 

BOA SORTE. E cuidado com 


sui os controles: “5” (esquerda) e es surpresas, 
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5 RAND 
30 POKE 16418,0 

49 LET PO-Q 

56 FAST 
100 FOR F=1 TO 65 
200 LET Y=INT (RND*22) 
300 LET X=INT (RND*32) 
400 PRINT AT Y,X;CHRS 137 






500 NEXT F 
510 FOR F=1 TO 15 
520 LET NT (RND*22) 





530 LET X=INT (RND*32) 
540 PRINT AT Y,X;CHR$ 143 
550 NEXT F 
609 SLOW 
610 PRINT AT 22,20;/BONUS: ";po 
700 LET A=11 
800 LET B-Ô 
900 PRINT AT A,B;“A";AT AB; 
901 IFPO<=-200THEN GOTO 3990 
902 IFA<QTHEN LET A=Q 
904 IFA>21 THEN LET A=21 
905 IF PO >= 2500 THEN GOTO 6900 
910 LET A=A+ (INKEY$="6") -(INKEY$="7") 
920 LET B=B+1 
930 PRINT AT AB; 
940 LET P=PEEK 16398+256* PEEK 16399 
950 IF PEEK P=137 THEN GOSUB 2900 
955 IF PEEK P=143 THEN GOTO 3090 
960 IF B=31 THEN LET B=Ô 
965 GOTO 999 
2000 PRINT AT 22,6;“VOCÊ BATEU NUM MURO” 
2005 LET PO-=PO-1g 
2010 FOR F=0 TO 25 
2020 NEXT F 
2025 PRINT AT 22,26;"(cinco espacos)" 
2030 PRINT AT 22,6% E PERDEU BONUS: “PO 
2940 FOR F=9 TO 25 
2050 NEXT F 
2055 PRINT AT 22,7; (12 espacos) BONUS: ” 
2060 RETURN 
3000 POKE 16418,0 
3010 LET O=INT (RND+4)+1 
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3020 IF 0-0 THEN GOSUB 3700 

3030 IF 0=1 THEN GOTO 3599 

3040 IF 0=2 THEN GOTO 4000 

3050 IF 0=3 THEN GOTO 50 

3060 IF 0=4 THEN GOTO sopg 

3065 GOTO 990 

3500 CLS 

3510 POKE 15418,2 

3520 FOR F=0 TO 21 

3530 PRINT "(32 modo grafico shift DJ” 

3540 NEXT F 

3550 PRINT AT 11,0; AGORA VOCE IRACORRER NUM F. 1; (em inverso) 
3560 PRINT AT 12,0” ESCOLHA SEU CARRO: 1-2:3-4-5.6 ”” 
3565 FOR F=0 TO 25 

3566 NEXT F 

3580 CLS 

3582 FOR F=2T021 

3584 PRINT AT F,0;'(24 modo grafico shift A) (1 modo grafico shift T) (7 espacos 
em inverso) 

3586 NEXT F 

3590 DIM A(6) 

3595 PRINT AT 0,0; 1: LARGADA BONUS: (+/-) ” (inverso) 
3690 RAND 

3610 INPUT B 

3615 LET T=INT (RND*6)+ 

3620 FOR F=T TO 6 

3630 PRINT AT F*3+3,A(F);" (1 espaco inverso);CHRS (F+28) 
3640 LET A(F)=A(F)+NT (RND*4) 

3645 IF A(B)=A(F) AND A(F) >= 25 THEN GOTO 5500 

3650 IF A(F) >= 25 THEN GOTO 3809 

3660 NEXT F 

3680 LET T=1 

3690 GOTO 3620 

3700 LET PO=PO+ 100 

3710 PRINT AT 22,19; “BONUS: ";PO 

3720 RETURN 

3800 CLS 

3810 LET PO=PO-59 

3815 PRINT AT 10,1:/0 CARRO VENCEDOR FOI O NUMERO";F 
3820 PRINT AT 11,0;//VOCE PERDEU A CORRIDA E BONUS DE:” 
3830 PRINT AT 12,10;P0 

3832 FOR F=0 TO 25 

3833 NEXT F 

3835 POKE 16418,0 

3837 CLS 

3840 GOTO 59 

3900 POKE 16418,2 

3910 CLS 

3920 PRINT AT 11,1:/VOCE PERDEU. ULTRAPASSOU A -299"" 
3930 FOR F=0 TO 25 

3940 NEXT F 

3959 CLS 

3960 PRINT AT 11,1:/DESEJA JOGAR NOVAMENTE (S/N) ?' 
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3970 
3080 
3985 
3987 
3988 
4000 
ao 
4005 
amo 
4020 
4100 
a191 
410 
sm 
4115 
4120 
4130 
4140 
4159 
4169 
4165 
4166 
4169 
4190 
4192 
4200 
4210 
4220 
4400 
4410 
4420 
4439 
4435 
4449 
4459 
4455 
4456 
4457 
4458 
4460 
4470 
4415 
aaso 
4482 
4484 
4486 
4490 
5000 
5005 
501p 
sem 
5012 
5015 


INPUT A$ 

IF A$="S” THEN GOTO 3987 

IF A$="N” THEN STOP 

cLs 

RUN 

cLs 

PRINT AT 11,0;//AGORA VOCE LUTARA CONTRA OS E.T.” 
PRINT AT 12,6//AGUARDE UM INSTANTE.” 

FOR F=0 TO 25 

NEXT F 

cLs 

LET X=21 

LET v=14 

LET S=INT (RND*21) 

FAST 

FOR F=0 TO 703 

PRINT CHAS$ 128; 

NEXT F 

SLOW 

FOR Q=0 TO 21 

LET S=SHINT (RND*3)-1 

PRINTATAQ,S; "ATOS; Ud 
PRINTATX,Y; A” 

IF Y <O THEN LET v=0 

IF Y >29 THEN LET y= 29 

LET Y=Y+(INKEY$="8") -(INKEY'$=" 
IF INKEY$="0" THEN GOTO 4409 
NEXT Q 

FOR E=21 TO QSTEP-1 





PRINTAT E, Y;! ves ATE Ke 

IF E=Q AND Y=S THEN GOTO 4479 

NEXTE 

CLS 

LET PO=PO-59 

PRINTAT 11,0;/'VOCE ERROU E SEU BONUS E: “PO 


FOR F=0 TO 25 

NEXT F 

CLS 

POKE 16418,0 

GoTO 59 

LET PO=POr GO 

cLS 

PRINT AT 11,0;//PARABENS.SEU BONUS E DE “;PO 
FOR F=9 TO 25 

NEXT F 

cLs 

GoTO 59 

CLS 

POKE 16418,2 

PRINT AT 11,0/AGORA VOCE VAI ESQUIAR NA NEVE” 
FOR F=0 TO 25 

NEXT F 

cts 
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5020 
5030 
5040 
5050 
5119 
5120 
5130 
5140 
5150 
5155 
5160 
5165 
5170 
5180 
5199 
5200 
5210 
5215 
5220 
5230 
54go 
5495 
5419 
5420 


5435 
5437 
5449 
5450 
5460 
5470 
5471 
5472 
5473 
5474 
5475 
5500 
5519 
5520 
5530 
5531 
5532 
5535 
5536 
5549 
[9/4] 
eo 
6100 


DIM H$(6,24) 
LET X=11 
LET y=12 


LET H$(1)=" EDTA TOTO TO o 








FOR J=0 TO 30 

LET S=INT (RND*6)+1 
SCROLL 

PRINT AT 21,3;H$(5) 
PRINTATX, 
IF Y <2 THEN LET v=2 

IF Y>27 THEN LET Y=27 

LET Y=Y+(INKEY$="8") -(INKEY$="5") 

PRINT AT X+,Y: 

LET P=PEEK 16308+266* PEEK 16399 

IF PEEK P=128 THEN GOTO 5450 

NEXTJ 

LET PO=PO+100 

PRINT AT 11,0;“PARABENS;VOCE AGORA TEM “PO 
FOR F=0 TO 4q 

NEXT F 

cLs 

POKE 16418,0 

GoTO5A 

cLs 

LET PO=PO-50 

PRINT AT 11,1/VOCE CAIU E PERDEU;BONUS: “po 
FOR F=9 TO 25 

NEXT F 

cLs 

POKE 16418,0 

GoTo 59 

LET PO=PO+190 

cLs 

PRINT AT 11,5;//PARABENS VOCE VENCEU.” 

PRINT AT 12,9//BONUS: “PO 

FOR F=0 TO 25 

NEXT F 

cLs 

POKE 16418,0 

Goro so 

POKE 16418,2 

PRINT AT 11,0;/PARABENS. VOCE CUMPRIU A MISSAO.” 
sTOP 
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Agora você será um autêntico 
corredor de Fórmula 1. Neste jo 
go você passará por túneis, obs- 
téculos, etc. 

Ele possui quatro fases: na pri- 
meira você terá que percorrer 
100 km numa pista sem obstácu- 
los; na segunda terá que percor- 
rer 100 km num túnel; na tercei- 
ra enfrentará obstáculos e final- 
mente na quarta enfrentará obs 








táculos num túnel e por final a 
reta de chegada. Cuidado para 
não sair da pista, caso contrário 
irá bater no GUARD-RAIL e sair 
da prova. 

Seus controles são: 

“5” (ESQUERDA) 

“8” (DIREITA) 

BOA SORTE (quem sabe se 
daí não sairá outro Nelson Pi 
quet). 
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3 

4 

5 

6 
“ 

7 

8 

9 

10 
“ 
15 
20 
30 
50 
[51] 
70 
Bo 
85 
so 
95 
96 
190 
101 
no 
120 
130 
140 
159 
160 
170 
180 
190 
no 
220 
239 
240 
250 
252 
260 
270 
280 
290 
300 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 


FOR F=0 TO 20 

PRINT AT F,11;“(espaco inverso) (7 grafico shift H) (1 espaco inverso)” 
NEXT F 

PRINTAT21,12;'(1 espaco inverso) (5 grafico shift H) [1 espaco inverso)'';AT 
A2;"(7 grafico shift TJ” 

PRINT AT 11,0;“LARGADA:” 

PRINT AT 10,15;/ºH"º 

FOR F=9TO 0 STEP-1 

PRINT AT 11,9;F 

NEXT F 

LET B=100 

LET A=1 

LET C=10 

LETW=15 

LET N=15 

LET E=13 

CET P=1 

LET J=15 

SCROLL 

LET B=B-1 

IFB<1 THEN GOTO 300 

PRINT TAB E;“(1 espaco inverso) (3 grafico shift H) (Tespaco inverso)” 
IF B/25=INT (8/25) THEN PRINT AT 21,0/TUNEL:”;B 

LET E=E+RND"2*(NOT E > 18)-RND*2* (NOTE < 6) 

PRINT AT C-1,N;“(1 grafico shift A)” 

PRINT AT CW;CH" 

PRINTAT C+H,W; 

IF PEEK (PEEK 16398+256"PEEK 16399)=128 THEN GOTO 200 





LET P=PH 

LET W=W+(INKE$="8")- (INKEY$="5") 

GoTO 90 

PRINT AT 14,3//VOCE BATEU NO GUARD-RAIL” 
FOR F=0 TO 25 

NEXT F 

cLs 

PRINT AT 11,8//TENTE NOVAMENTE” 

PRINT AT 12,6;“VOCE PERCORREU: 
FOR F=0 TO 25 

NEXT F 

cLs 

RUN 

LET B=B+1 

IFB>190THEN GOTO 410 

PRINT TAB E;“(1 grafico shift A) (3 espacos inverso) (1 grafico shift A)” 


“KMS 











LET E=E+RND*2*(NOT E > 18)-RND*2*(NOT E >6) 
PRINT AT C-1,N;“(1 espaco inverso)” 

PRINT AT CW;“H” (inverso) 

PRINT AT CH,W; 


IF PEEK (PEEK 16398+256*PEEK 16399)=8 THEN GOTO 200 
LET N=W 

LET 1 

LET W=W+(INKEY$="8")- (INKEY$="5"") 
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395 
40 
so 
420 
425 
426 
430 
435 
436 
437 
438 
440 
445 
asp 
460 
470 
48 
490 
495 
509 
519 
520 
530 
549 
550 
560 
570 
580 
595 


610 
629 
eso 
840 
650 
seg 
670 
680 
[297] 
700 
710 
720 
725 
730 
750 
760 
850 
870 
seo 
E 
909 
920 


SCROLL 

GOTO 300 

LET B=21 

SCROLL 

LET B=B-1 

IFB<1 THEN GOTO 445 
PRINTAT CAN 
PRINTAT CW; 
LET W=W+(INKEY$="8")- (INKEY$="5") 

LET N=W 

PRINT TAB 2;” (28 espacos)” 

GOTO 420 

LET B=100 

LET B=B-1 

IFB<1 THEN GOTO 600 

SCROLL 

PRINT TAB 13;“/1 espaco inverso) (5 grafico shift H) (1 espaco inverso)” 
PRINT AT 21, J;“A” 

IF B/25=INT (B/25) THEN PRINT AT 21,0//TUNEL:”; B 

LET J=J+RND*3*(NOT J > 18)-RND*3*(NOT J< 14) 

PRINT AT C-1,N;“(1 grafico shift H)” 

PRINTAT CW;'H” 

PRINTATC+HM; 

IF PEEK (PEEK 16398+256*PEEK 16399)=128 THEN GOTO 200 

IF PEEK (PEEK 16398+256*PEEK 16399)=38 THEN GOTO 750 

LET N=W 

LET P=PH 

LET W=W+(INKEY$="8")- (INKEY$="5") 

GOTO 450 

LET B=B+1 

IFB<9OTHEN GOTO 859 

PRINT TAB 13;” (1 grafico shift A) (5 espacos inverso) (1 grafico shift AJ 
PRINT AT 21,1;/A” (inverso) 

LET J=J+RND*3*(NOT J > 18)-RND*3*(NOT J < 14) 

PRINT AT C-1,N:“(1 espaco inverso)” 

PRINT AT CW;“H” (inverso) 

PRINTAT C+W; 


























IF PEEK (PEEK 16398+ 256"PEEK 16399)=8 THEN GOTO 200 
IF PEEK (PEEK 16398+256*PEEK 16399)=166 THEN GOTO 750 
LET N=W 

LET P=PH 

LET W=W+(INKEY $="8")- (INKEY$="5") 

SCROLL 

GOTO 500 

PRINTAT 11,0;//VOCE BATEU. E PERCORREU: “Pp 

STOP 

LET B=B-1 

IFB<80 THEN GOTO 1000 

PRINT TAB 13;“(1 espaco inverso) (5 grafico shift A) (1 espaco inverso)” 


PRINT AT C-1,N;” (1 grafico shift HJ” 
PRINTAT CW;“H” 
LET N=W 
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930 

950 

955 

960 
1910 
1020 
1030 
1040 
1050 
1960 
1070 
1975 
1980 
1200 
1210 
1220 


LET P=PM 

LET W=W+ (INKEY$="8") -(INKEY$="5") 
SCROLL 

GoTOo 859 
PRINT TAB 13;* 
PRINT AT C-1, 
PRINTATCW; 
PRINTATC+H,W; 

IF PEEK (PEEK 16398+256*PEEK 16399)=6 THEN GOTO 1200 
LET N=W 

LET P=P+1 

SCROLL 

Goro 1920 

PRINT AT 14,1;/PARABENS. VOCE E ON ENCE DOR! É 


PRINT AT 15,4;/VOCÊE PERCORREU: 
STOP 


espaco inverso) (5 grafico shift T) (1 espaco inverso)” 
(1 grafico shift HJ” 
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Este jogo o levará para as mu- 
ralhas da China, Lá você terá que 
derrubar essa muralha, isso na 
primeira etapa, pois, após ter ul- 
trapassado a muralha terá que pe- 
gar quatro senhas em lugares di- 
ferentes no meio de um campo 
de concentração sendo bombar- 
deado. Para eliminar a muralha 
você terá um tempo limitado, de- 
pois para pegar as senhas deverá 





tomar cuidado com os buracos e 
também com as bombas que 
caem no campo. 
“BOA CHORTE NE” 
Seus controles são os mesmos 


do joystick. 
“5” (ESQUERDA) 
“8” (DIREITA) 
“6” (PARA BAIXO) 
“7º (PARA CIMA) 
“Gr (TIRO) 
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7 

8 
19 
15 
16 
20 
30 
40 
so 
[5 
62 
65 
66 
70 
so 
92 
94 
95 
96 
97 
98 
100 
no 
115 
120 
150 
200 
202 
204 
206 
210 
220 
260 
265 
267 
270 
280 
285 
300 
305 
310 
315 
350 
355 
356 
360 
380 
385 
390 
400 
419 
500 
510 
520 


POKE 16418,0 

RAND 

SLOW 

LET A=9 

LET U=30 

LET K=1 

LET I=Q 

LET 8=27 

LET Y=9 

LET X=14 

LET W=0 

LET S=9 

FOR F=1 TO 39 

LET S=INT (RND*20) 

LET W=INT (RND*30) 

PRINT AT SW;CHRS 8 

NEXT F 

FOR F=2 TO 20 

PRINT AT G,F;CHR$ 128 

PRINT AT 2,F;CHRS 128 

NEXT F 

FOR F=9 TO 20 

PRINT AT F,30;CHR$ 5 

PRINT AT F,27;CHRS$ 128 

NEXT E 

GOTO 300 

LET v=1 

PRINT AT K NH; > ,AT Ko 
IF Y > 30 THEN RETURN 

LET y=v+3 

PRINTATK,Y; 

LET P=PEEK 16398+256* PEEK 16399 
IF PEEK P=8 THEN GOTO 280 

IF PEEK P=128 THEN GOTO 1000 
IF PEEK P=5 THEN RETURN 
GoTOo 201 

LET U=U-1 

PRINTATK NY; 

LETI=O 

IFU<SIGANDU>S THENPRINTAT 229; 
PRINT AT 22,16YELIMINADOS:;A 
PRINT AT 22,2;/TEMPO:  “;U 
FOR L=0 TO U 

LET S=INT (RND*20)+1 

LET W=INT (RND*26) 

PRINT AT KI; Ke qES MATRA 
LET K=KH(INKEY$=“6") -(INKEY$="7") 
PRINT AT S,W;CHRS 8 

IFK<1 THEN LET K=1 
IFK>207THEN LET K=20 

IF INKEY$="0" THEN GOSUB 200 
NEXT L 

LET U=U-1 

PRINT AT 22,9;U 
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545 IF U=9 THEN GOTO 600 

550 GOTO 350 

ep CLS 

610 PRINT AT 11,7;/SEU TEMPO ACABOU” 

620 STOP 

1001 PRINTATKB;/* 

1PIO LET A=A+H 

1020 IF A=19 THEN GOTO 1200 

1100 RETURN 

1200 CLS 

1210 POKE 16418,0 

1220 PRINT AT 11,2:/PARABENS; ELIMINOU O MURO” 
1230 DIM A$(5,30) 

1240 LET A$(1)=" CECTTS TOMO TO TO TT TO 


1250 LET AS(2)="" CTT TOTO TOTO TOTO TOTO 
[GOO SOM SOS SOM nam mas nim nal 


1260 LET A$(3)="" a 

1270 LET AS(4)=" CRT RN TR TT TOR 
1280 LET AS(5) é 
1290 FOR F=0TO 21 

1300 LET C=INT (RND*5)+1 

1310 PRINT AT F,0;AS(C) 

1320 NEXT F 

1321 FOR F=0 TO 6 

1322 PRINT AT INT (RND*19) +1,INT (RND*28)+1; CHRS 8 

1323 NEXT F 

1330 LETK=11 

1331 LET |=9 

1332 LET A=0 

1336 PRINTATK =";AT KI 

1338 PRINT AT INT (RND*19) +1,INT (RND*28)+1; CHR$ 23 
1340 IF INKEY$=“6" THEN LET 
1345 IF INKEY$="7" THEN LET 
1350 IF INKEY$="8" THEN LET [= 

1355 IF INKEY$="5" THEN LET I=1-1 

1360 IF K<OTHEN LET K=0 

1370 IFK>21 THEN LET K=21 

1380 IF | <0 THEN LET |=0 

1390 IF |>30 THEN LET 1=30 

1400 PRINT ATKI; 

1410 LET P=PEEK 16398+256* PEEK 16399 

1420 IF PEEK P=23 THEN GOTO 1500 

1425 IF PEEK P=128 THEN GOTO 1571 

1428 IF PEEK P=8 THEN GOSUB 1450 

1430 GOTO 1336 

1450 LET A=AM 

1451 POKE 16418,0 

1455 IF A=4 THEN GOTO 1690 

1460 PRINT AT 22,20;“SENHA: “;A 

1470 RETURN 

1500 CLS 

1510 PRINT AT 11,2//VOCE FOI PEGO POR UMA BOMBA” 
1520 FOR F=0 TO 28 

1530 NEXT F 
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1540 
1550 
1560 
1565 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1600 
1610 


PRINT AT 11,07” TENTE NOVAMENTE 
FOR F=0 TO 28 

NEXT F 

CLS 

RUN 

CLS 

PRINT AT 11,5/VOCE CAIU NUM BURACO” 
FOR F=0 TO 28 

NEXT F 

PRINT AT 11,5” TENTE NOVAMENTE 
FOR F=0 TO 28 

NEXT F 

cLs 

RUN 


PRINT AT 11,1;“PARABENS. VOCE CUMPRIU A MISSAO.” 


STOP 
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Esta seção tratará de explicar 
na prática como elaborar um pro- 
grama, ou melhor, como enten- 
der os truques, fórmulas matemá- 
ticas, etc. de um programa. Neste 
número tratamos de um jogo de 
ação, o qual estudaremos linha 
por linha. Nele encontraremos 
movimentos, placar, o uso das te- 
clas num programa e outras coi- 
sas importantes. Lógico, não se 
trata de um jogo de extrema ação 
e dificuldade, mas nosso objetivo 
é levar gradativamente ao conhe- 
cimento dos leitores, como ela- 
borar um programa, especialmen- 
te aos principiantes. 


20 LET X=21 

30 LET Y=14 

aq LET S-0 

45 LET PO-Q 

50 FOR F=0 TO 21 


O jogo consiste de uma nave 
amiga que no começo do jogo se 
encontra no centro abaixo na te- 
la, e uma nave inimiga que desce 
aleatoriamente pela tela, a qual 
você deve evitar que atinja o so- 
lo, para evitar a nave inimiga vo- 
cê possui os tiros executados ca- 
da vez que a tecla Q for pressio- 
nada. Sua nave se movimenta 
tanto para a esquerda como pa- 
ra a direita, usando as teclas 5 
(esquerda) e 8 (direita). Digite- 
o e depois estude com calma, e 
através disso tente criar outros 
programas, ou mesmo incremen- 
tar mais este mesmo programa. 


10 POKE 16418,0 


60 PRINT AT F,0:“(32 grafico shift A)" 


70 NEXT F 

80 FOR U=0 TO 21 

90 LET S=S+INT (RND*3) 
100 PRINT AT U,S;/<=>" 


(inverso) 





no 
120 
130 
140 





PRINT AT U,S;“ (3 grafico shift A)” 
PRINTAT X,Y;“(1 grafico shift A) X [1 grafico shift AJ” 
IF INKEY$="8" THEN LET Y=Y+1 
IF INKEY$="5" THEN LET Y=Y-1 
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150 IF INKEY$="9" THEN GOTO 210 
169 NEXTU 

170 LET PO=PO-1O 

180 IF PO=-50 THEN GOTO 320 

19% PRINTAT2218;“PONTOS: “PO 

200 GOTO 80 

210 PRINTATU,S;'< = >" (inverso) 
215 FOR T=20 TO USTEP-1 

220 PRINTAT T,Y;“(1 grafico shift A)*(1 grafico shift A)” 
230 PRINTAT T,Y;“(3 grafico shift A)” 
240 IF T=U AND Y=S THEN GOTO 270 
250 NEXTT 

260 GOTO 176 

270 LET PO=POMQ 

280 IFPO<1 AND PO >-1 THEN PRINT 
290 PRINTAT2218;/'PONTOS: “po 


300 
319 
320 
330 
340 
359 STOP 


IF PO=100 THEN GOTO 340 
Goro so 


STOP 


PRINTAT 11,0;//VOCE PERDEU. ULTRAPASSOU A-50," 


PRINT AT 11,0;/PARABENS. VOCE CUMPRIU SUA MISSAO" 


AT 222670 
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Comentários 


ad 





10 Libera as duas linhas inferio- 
res. 

Coordenada da linha da na- 
ve amiga (X). 

Coordenada da coluna da 
nave amiga (X). 
Coordenada da linha da na- 
ve inimiga que na linha 90 
irá variar entre O e 2. 
Variável dos pontos. 

até 70 — Desenham a tela. 


130 
20 


30 


140 
E 


45 


50 150 


80 Looping principal que per- 
mitirá animação na tela, 

90 Coordenada da linha da na- 160 
ve inimiga já em variações 170 


entre Q e 2. 

Imprime na linha U e colu- 
naS a nave inimiga. 
Imprime na linha U e colu- 
na S o caracter da tela apa- 
gando a nave inimiga, para 
evitar que a nave fique im- 
pressa permanentemente 
dentro do looping. 

Imprime na linha X e colu- 
na Y a nave amiga. 


100 180 


no 199 
200 


210 





120 


Soma 1 a Y cada vez que a 
tecla 8 for pressionada, fa- 
zendo com que a nave ami- 
ga se movimente para a di- 
reita. 

Diminui 1 de Y cada vez 
que a tecla 5 for pressiona 
da, fazendo com que a nave 
amiga se movimente para a 
esquerda, 

Leva 20 looping de tiro cada 
vez que a tecla Q for pressio- 
nada. 

Fecha o looping principal. 
Diminui 10 pontos no esco- 
re. 

Identifica quando o escore 
chegar a -50. a -50. 
Imprime os pontos no canto 
direito inferior da tela. 


Retorna ao looping princi- 
pal. 
Imprime a nave inimiga 


após o tiro, caso esta linha 
não existisse, após o tiro a 
nave não apareceria na tela. 








OO CD coro co coco O 


no 
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215 Looping de tiro 

220 Imprime na linha T e coluna 
Y o tiro representado pelo 
asterisco. 

230 Apaga a impressão do tiro. 

240 Define que quando a linha 
T for igual a linha U e a co- 
luna Y for igual a coluna S 
saltará para a linha 270 

250 Fecha looping de tiro. 

260 Salta para as linhas de dimi- 
nuição de pontos caso errar 
otiro. 

270 Soma 10 pontos ao escore. 

280 Quando o placar atingir O 
irá imprimir três espaços no 
local dos pontos, caso con- 


trário, quando o placar esti- 
ver negativo irá imprimir 
um sinal negativo, que quar- 
do voltar a ser positivo dei- 
xará na tela um Q indesejá- 
vel, 

290 Imprime o novo escore, 

300 Define que quando o placar 
atingir a 100 pontos saltará 
para a linha 340. 

310 Retorna ao looping princi- 
pal. 

320 Executada quando PO=-50 
definida pela linha 189. 

340 Executada quando PO=100 
definida pela linha 300. 
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Este programa do SELETOR é 
só para ser usado no “BASIC 
DISCO”. Ele é feito para ler os 
programas do diretório do disco 
e dispô-los numerados ordenada- 
mente, assim, o usuário deste 
programa poderá selecionar uma 
opção e este será chamado auto- 
Possui, porém, cer- 
es: 1) Só poderá ser 
usado no operacional “NEW- 
DOS"; 2)Todos os programas de- 
verão estar divididos apenas em 
“IBAS” ou “"?CND” e é obriga 
tório o uso de uma destas duas 
especificações para o nome do 
programa; 3) Como o seletor 
/BAS deverá ser ativado através 
da função “AUTO”, ela deve ser 
específica = > AUTO BASIC run 





“SELETOR/BAS”. 

Este programa é uma adapta- 
ção de um anterior, escrito em 
junho/83 por Pierre Benassi, 
mas as adaptações foram tantas 
que se ele o visse agora, prova- 
velmente não o reconheceria. 

Para programas compilados 
que necessitam de outro para 
rodá-los, apenas é necessário 
acrescentar as linhas: 


494 N$="NOME DO PROGRA- 
MA QUE EXECUTA O 
PROGRAMA OBJETO” 

495 IF AES(A)= “COM” THEN 

M$=""9"+N$+M$+:CMDM$ 


mas para isso, tais programas de- 
vem ter a designação /COM. 











10 CLEAR 1900 
20 CLS 

30 CLEAR 20000 
40 DEFINT IN 


50 DIM ANS(1000), AES(1000), ADS(1000),NLS$(100),NFS (190) 


60 D$="1" 

70 L=1 

Bo ssa” 

9p I8="g” 

100 ON ERROR GOTO 520 


110 OPEN “R”, 1, “DIR/SYS. FN47:"+D$ 


120 FIELD 1, 208 AS DU$S, B AS NM$ 


130 GET 1,1 
140 ND$S= NM$ 
150 PRINT ND$ 


160 QOS=CHR$(191)+STRINGS (62,131)+CHRS(191) 
170 Q1$=CHR$(191)+STRINGS (62,32)+CHR$(191) 
180 Q2$=CHR$(191)4STRINGS (62,176) 


190 PRINTOQS$;01$;01$;01$;01$;01$;018$;01$;018; 01$;018;01$;018;028; 


CHR$( 191); 
200 FOR I=DTO7 


210 FIELD, (1*32) AS ST$, 1 AS T$(1),4 AS DVS(I), 8 AS NAS(I), 3 AS NE 


(1) 

220 NEXT | 

230 FOR J=3TO 19 
240 GET 1,) 

250 FORI=0TO7 
260 K= SC (T$ (1)) 


270 IFK=00RK>95THEN 410 


280 IFK <64 THEN31O 


290 IF S$-"N” GOTO 410 ELSE 350 
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300 IFK-INT(K/16)* 16>7 THEN 310 ELSE 350 
310 IF IS="Nº THEN 41O 

320 ANS (N)=NAS (1) 

330 AES (N) = NES (1) 

340 ADS (N)= ND$ 

359 PRINT 15," **=-SELETOR 
360 IFN>= ISPRINTE(N-17)"64+40, 
370 IFN>=9ANDN<18 PRINTO(N-7)*64+20,N; "="; 
AES(N); 

380 IF N< 9 PRINTO(N+2)*64+1,N;º 
390 N=N+H 

400 IFN > 1000 THEN PRINT “BUFFER CHEIO” GOTO 510 

410 NEXTI 

420 NEXTJ 

430 PRINTO 13+64+1,º ";: INPUT"QUAL À OPCAO “; A 

440 FORT=1 TO LEN (AN$(A)) 

450 AU = INSTR(ANS(A), ” ") 

460 IF AU > THEN ANS(A)= LEFTS(ANS(A),AU-1) 

470 ZZ$-ANS(A) 

480 MS$=ZZ$+"/"+AES(A) 

490 CLOSE 

500 IF AES(A)="CMD” THEN M$=“S=" +M$;CMDM$ 

510 IF AES(A)="BAS" THEN RUN M$ 

520 IF ERR=114 THEN RESUME NEXT 

530 IF ERR/2+1=67 THEN M$= 22$+"/"+"CMD":RESUME: GOTO 490 
540 ON ERROR GOTO 19 

550 END 

560 LPRINT CHRS (11) 

570 LPRINT “LISTAGEM POR"; TS 

580 LPRINT 

590 RETURN 

600 END 





















b RESERVE DESDE JA, NO SEU JOR- 
NALEIRO, O PROXIMO NÚMERO DE 


DIVIRTA-SE COM A 


ELETRONICA 


projetos fáceis, jogos, utilidades, pas- 
satempos, curiosidades, dicas, infor- 
mações... NA LINGUAGEM QUE VOCÊ 
++ ENTENDE! secos 
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10 O 0 0 O DO DO O OO O 


Volte aos tempos de Nero 
usando números romanos, este 
programa serve para converter 
qualquer número entre O e 3999 


ros romanos, uma coisa é certa, 
que vai ser um “baita numerão” 
vai. Mostre para seu pai a idade 
dele em escrita romana, tenho 


na escrita romana, é muito inte- 
ressante saber por exemplo, à 
data de seu aniversário em núme- 


corteza que quando eie ver dirá 
que não é tão velho assim. 





100 , PROGRAMA PARA CONVERSAO DECIMAL » ROMANO 

119 , PARATRS-80 MODELOS | E Ill E COMPATIVEIS 

120 AUTOR: JOSE MANUEL ONETO Y VILA 

130, 

140 DATA |, II, HH, IV, V, VI, VI, VII, IX, X, XX, XXX, XL, L, LX, LXX 
159 DATA LXXX, XC, €, CC, CCC, CD, D, DC, DCC, DCCC, CM, M, MM, MMM 
160 FOR I=1TO9 

170 READ US(I) 

180 NEXT 

190 FOR |=1 TO9 

200 READ D$(I) 

210 NEXT 

220 FOR I=1 TOO 

230 READ C$(I) 

240 NEXT | 

250 FOR |=1 TO 3 

260 READ M$(I) 

270 NEXT | 

289 CLS 

290 INPUT “DIGITE UM NUMERO “NS 

300 IF VAL (NS) <G OR VAL (N$) > 3999 GOTO 280 

310 PRINT 

320 PRINT 

330 NOS = RIGHTS(“000D"+ N$,4) 

340 FOR |=1 TO 4 

350 N(I)=VAL(MIDS(NO+,I, 1)) 

360 NEXT 

370 RO$=MS(N(1))+CS(N(2))+ DS(N(3)) + US(N(4)) 

389 PRINT ROS; 
390 PRINT 
490 PRINT 
410 INPUT “OUTRO NUMERO ";R$ 
420 R$= LEFTS(R$,1) 

430 IF R$=“S” GOTO 280 
449 END 





E COMO OS ROMANOS ESCREVIAM O NUMERO “;NS$) 
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Para você que adora arriscar 
um joguinho na loto eis aqui sua 
chance de ganhar sem fazer for- 
ça, apesar que jogar na loto só re- 
quer força do “bolso” mas en- 
fim... 

Esse programa sorteie aleato- 
riamente até 200 cartões da loto, 
não permite que saiam cartões 


fere posteriormente (só que 
quem vai ganhar é você), impri- 
me-os para melhor visualização 
(já pensou você ganhar e depois 
só ficar “curtindo” o cartão na 
tela). 

Vale a pena tentar, pois ele 
já deu duas quadras para seu 
criador. 


C 
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BOA SORTE. 


iguais, grava os cartões e os con- 


10 CLEAR 1000 :DIMS (200, 15):RANDOM:CLS 
20PRINTE22, “PARA JOGO DA LOTO”; 
25PRINTC1*64+22, STRINGS (17, “="); 
30PRINTO2*64+22, “OPERACOES”, 
4OPRINTES*64+22, “SORTEIO”; 
5OPRINTOG*64+ 22, “CONFERIR”; 
GOPRINTEB*64+22, “GRAVAR CARTOES"; 
TOPRINTE 10*64+22, “CARREGAR CARTOES"; 
8OPRINTO12*64+22, “IMPRESSAO DOS CARTOES”; 
90 N=4 

100 IF N> =13,PRINTE(N-1)* 64415, 

110 IFN <=3PRINTO(N+H)* 64+15,0 

120PRINTEN*64+15, “=>"; 

130 AS=INKEYS:IF AS=""" GOTO 130 

140 IF AS=CHR$(91),PRINTE N*64+15, 

150 IF AS=CHR$(10),PRINTO N*64+15, : 

160 IF AS=CHR$(13), H=N-3: ON H GOTO 170, 350, , 500, , 580, , 700 

170 CLS 

180 INPUT “QUANTOS CARTOES — MAX DE 200";A 

190 IF A >200, GOTO 180 

200 INPUT “QUANTAS DEZENAS — MIN. de 5/MAX. DE 10º;8 
210 IFB<50RB>19,GOTO 200 
220 FOR |=1 TOA 
230 PRINT 
240 FORC=1 TOB 
250 S (Il, CI=RND(190) 

260 D=S (1, C) 

270 IF C=1, GOTO 310 

289 FORT=1 TOC-1 

290 IF D=S(I, T), GOTO 250 

300 NEXTT 
310 PRINTS (1, C); 

320 NEXTC,I 
330 PRINTO15*64, “PRESSIONE QUALQUER TECLA P/ CONTINUAR"';: IF INK 
Ey $=" "GOTO 330 ELSE CLS: GOTO 20 
350 CLS: INPUT “NUMEROS DO RESULTADO DA LOT0";D1,D2,03,04,05 
360 F=0 
370 FORI=1 TOA 
380 FOR 
390 IF D 


























=S (1, C),F=F+1 
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400 IF D2=S (|, C),F=F+1 
410 IF D3=S (|, C), 
420 IF D4=S (1,C), 
430 IF D5=S (I, C),F=F+1 

440 NEXTC 

450 IF F> =3, LPRINT “CARTAO";I:LPRINT” ":FORJ=1 TOB:LPRINTS (1,));:N| 
EX TJ:LPRINT” “:LPRINT DI, DZ, D3, D4, D5 

460 F=0 

470 NEXTI 

480PRINTO15*64, “P/ CONTINUAR PRESSIONE QUALQUER TECLA”::F INKE 
Y 8 ", GOTO 480 ELSE CL S:GOTO 20 

500 CLS:PRINTOI9*64+22, “GRAVANDO DADOS DOS CARTOES "; 
505PRINTE13*64, “PRESSIONE QUALQUER TECLA QUANDO PRONTO";:IF IN 
KEY$=" ", GOTO 505 ELSEPRINTO 13:64, CHRS$ (30); 

510 PRINT &-1,A,B 

520 FOR |=1 TOA 

530 FOR C=1TOB 

540 PRINT &-1,S (|, C) 








550 NEXT C 

560 NEXTI 

570 PRINTC15*64, “PRESSIONE QUALQUER TECLA P/CONTINUAR";:IF INKE 
$=" ", GOTO 570 ELSE CLS:GOTO 20 

580 CLS:PRINTe10+64+22, “CARREGANDO DADOS DOS CARTOES P/MEMOR 
IAr; 

590PRINTO13+64, “PRESSIONE QUALQUER TECLA QUANDO PRONTO" ;:IF IN 
KEV$=" ", GOTO 590 ELSE PRINTa13+64, CHRS (30); 

690 INPUT &-1,A,B, 

619 FOR I=1 TOA 

620 FOR C=1 TO B 

630 INPUT *-1,5)l, C) 

640 NEXT C 

650 NEXT A 

660 PRINTe15*64, “PRESSIONE QUALQUER TECLA P/CONTINUAR";:IF INKEY| 
$="", GOTO 660 ELSE CLS:GOTO 29 

700 CLS:PRINT8+64+5, “IMPRIMINDO”; 

710 FOR |=1 TO A 

715 LPRINT “CARTAO NUMERO = “;| 

716 LPRINT STRING$(63, =") 

720 FOR C=1 TO B 

750 LPRINT "; 

760 LPRINTS (1, C); 

775 NEXTC 

776 LPRINT 

780 LPRINT STRINGS$(63,"=") 

790 LPRINTO 

800 NEXT 

810 LPRINT” “ 

820 LPRINT STRING$(63,“=") 

830 PRINTe15*64+5, “PRESSIONE QUALQUER TECLA P/ CONTINUAR"; 

849 IFINKEYS=" “, GOTO 840 ELSE CLS:GOTO 20 
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Este programa é capaz de for- o único porém é que terá de ser 
necer qualquer dia da semana de dado o ano completo. Pode ser 
qualquer data deste século, levan- muito bem utilizado para pro- 
do em torno de 9 segundos ape- gramas de cadastro e outros do 
nas, sem o uso das fórmulas adi- gênero. 


cionais que todo calendário usa, 





60 CLEAR 1000 
70 CLS 
80 INPUT “DIA DO MES";DM 
90 IFDM<10RDM>31 THEN 89 
100 INPUT “MES “:M 
110 IFM<10RM>12THEN 190 
120 INPUT “AND COMPLETO”; AS 
130 A=VAL (A$) 
140 IFA<19910R A>2001 THEN FOR V=1 TO 30: PRINTE 8*64, “SINTO 
MUITO MAS ESTE CALENDARIO E APENAS PARA ESTE SECULO” ;:FORZA- 
TTO 50:;NEXT:PRINTE 8* 64, STRINGS (63,128);:NEXT:END 
150 IF A/4=INT (A/4) THEN F=29:B$=“BISSEXTO!ELSE F=28:8$="NAO BISSEX 


To” 
160 GOSUB 280 


170 FOR I=D TO A-1STEP4 

180 IF I=0 THEN GOTO 200 

190 N=N+ 

200 NEXT 

210 B&=(A*365)AN+T-1 

220 C4=B%/7 

230 D&=CH-INT (CH) 

240 IF D &=0 THEN S$="SABADO":GOTO 370 

250 E &=INT ((Di *7)+.5) 

260 GOSUB 330 

270 GOTO 370 

280 FOR K=1 TOM 

290 READ T 

300 NEXT 

310 IFM <3 THEN T=T+DM:RESTORE:RETURN 

320 T=T+F+DM:RESTORE: RETURN 

330 FOR K=1 TO E 4 +12 

340 READSS 

350 NEXT 

360 RESTORE:RETURN 

370 FOR K=1 TO MH9 

380 READ M$ 

390 NEXT 

AMD S$-S$+" "4STRE(DM)+ “/4MS+“/"ASTRS(A] 

410 PRINTO 8*64+10,58; 

420 DATA 0, 31,31, 62, 92,123, 153, 184, 215, 245, 276, 306 

430 DATA “DOM”, “SEG”, “TER”, “QUA”, “QUI”, “SEX”, "SAB" 
440 DATA “JAN” 
“OUT”, “NOV”, “DEZ” 











“FEV, “MAR”, “ABR”, “MAI”, JUN”, “JUL”, “AGO”, “SET”, 
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VOCÊ que fabrica ou vende 
equipamentos ou qualquer 
produto ligado à área de 


“MICROS?” 
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PROG RAHAL 


CONSUMIDOR DO 
SEU PRODUTO 
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